home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / win32_exec.pm < prev    next >
Text File  |  2006-06-30  |  1KB  |  59 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::win32_exec;
  11.  
  12. use strict;
  13. use base 'Msf::PayloadComponent::Windows::ia32::ExecuteCommand';
  14.  
  15. my $info =
  16. {
  17.     'Name'         => 'Windows Execute Command',
  18.     'Version'      => '$Revision: 1.18 $',
  19.     'Description'  => 'Execute an arbitrary command',
  20.     'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', ],
  21.     'UserOpts'     =>
  22.         {
  23.             'CMD' => [1, 'DATA', 'The command string to execute'],
  24.         },
  25. };
  26.  
  27. sub _Load 
  28. {
  29.     Msf::PayloadComponent::Windows::ia32::ExecuteCommand->_Import('Msf::PayloadComponent::NoConnection');
  30.  
  31.     __PACKAGE__->SUPER::_Load();
  32. }
  33.  
  34. sub new 
  35. {
  36.     my $class = shift;
  37.     my $hash = @_ ? shift : { };
  38.     my $self;
  39.  
  40.     _Load();
  41.  
  42.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  43.     $self = $class->SUPER::new($hash, @_);
  44.  
  45.     return($self);
  46. }
  47.  
  48. #
  49. # Return the user specified command to execute
  50. #
  51. sub CommandString 
  52. {
  53.     my $self = shift;
  54.  
  55.     return $self->GetVar('CMD');
  56. }
  57.  
  58. 1;
  59.